home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 October / Ahoy_Magazine_87-10_1987_Double_L_Side_A.d64 / 64 RAMDrive (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  129 lines
  1. 10 rem 64ramdrive loader & configuration by anthony bertram
  2. 20 :
  3. 30 c1$="":c2$="":r$=""
  4. 40 print"[147]loading upper m.l."
  5. 50 l=64536:cs=0
  6. 60 readd:ifd=-1then75
  7. 70 pokel,d:cs=cs+d:l=l+1:goto60
  8. 75 ifcs<>126147thenprint"[147] data error in upper ml data!":stop
  9. 80 print"[147]"tab(5)"64ramdrive configuration menu"
  10. 90 print" use cursor up/down key to highlight
  11. 100 [153]" choice and press return to select."
  12. 110 a1$[178]"locate lower code in cassette buffer   "
  13. 120 a2$[178]"locate lower code in top of basic ram  ":c[178]2:[141]400
  14. 130 [141]370:[139]c[178]1[167]sa[178]828:[141]420:[137]170
  15. 140 tm[178][194](55)[170]256[172][194](56):sa[178]tm[171]190:sh[178][181](sa[173]256):sl[178]sa[171](sh[172]256)
  16. 150 [151]55,sl:[151]56,sh:ve[178]sa[170]23:vh[178][181](ve[173]256):vl[178]ve[171](256[172]vh)
  17. 160 [141]420:[151]sa[170]13,vl:[151]sa[170]18,vh
  18. 170 a1$[178]" larger ram storage area 40961 to 64512"
  19. 180 a2$[178]"smaller ram storage area 53248 to 64512":c[178]2:[141]400:[141]370
  20. 190 [139]c[178]1[167]210
  21. 200 [151]65387,0:[151]65388,208:[151]65389,0:[151]65390,44:ss[178]1
  22. 210 a1$[178]" _ to precede commands (normal basic)  "
  23. 220 a2$[178]" # to precede commands (fast load cart)":c[178]2:[141]400:[141]370
  24. 230 [139]c[178]1[167] p$[178]" _":[137]250
  25. 240 [151]sa[170]28,35:p$[178]" #"
  26. 250 [153]"load 64 ramdrive activated at ";sa
  27. 260 [158] sa
  28. 270 [153]:[153]p$"load  = load from ramdrive
  29. 280 printp$"save  = save to ramdrive
  30. 290 [153]p$"!     = scratch program
  31. 300 print:print" the above require a six character
  32. 310 [153]"   filename enclosed in quotes.
  33. 320 print:printp$"$     = directory":print:print
  34. 330 ifssthenb$=" 11,264 ":goto350
  35. 340 b$=" 23,551 "
  36. 350 printb$"ram drive storage bytes free.":print
  37. 360 print"sys 58451 to kill. sys"sa"to re-start":end
  38. 370 geta$:ifa$=chr$(13)thenreturn
  39. 380 ifa$=""thengosub400:goto370
  40. 390 goto370
  41. 400 ifc=2thenprintr$c1$a1$:printc2$a2$:c=1:return
  42. 410 printc1$a1$:printr$c2$a2$:c=2:return
  43. 420 forp=satosa+188:reada:ck=ck+a:pokep,a:next
  44. 430 if ck=23041thenreturn
  45. 440 print"[147] error in lower ml data!":stop
  46. 490 rem * upper ml data *
  47. 1000 data 0,0,0,0,0,0,0,0,0,0,32,29,255,192,6,240,6,169,4,141
  48. 1010 data 254,3,96,202,224,0,208,3,76,32,253,138,72,165,253,141
  49. 1020 data 24,252,165,254,141,25,252,177,253,141,26,252,200,177
  50. 1030 data 253,141,27,252,162,1,32,55,255,165,253,141,28,252,165
  51. 1040 data 254,141,29,252,160,6,177,253,141,30,252,200,177,253
  52. 1050 data 141,31,252,56,173,30,252,237,26,252,141,32,252,173
  53. 1060 data 31,252,237,27,252,141,33,252,104,170,160,6,56,177,253
  54. 1070 data 237,32,252,145,253,200,177,253,237,33,252,145,253,200
  55. 1080 data 56,177,253,237,32,252,145,253,200,177,253,237,33,252
  56. 1090 data 145,253,202,240,11,160,10,32,67,255,136,208,250,76
  57. 1100 data 127,252,173,30,252,133,251,173,31,252,133,252,173,26
  58. 1110 data 252,133,253,173,27,252,133,254,173,107,255,141,115
  59. 1120 data 255,173,108,255,141,116,255,32,74,255,173,28,252,133
  60. 1130 data 251,173,29,252,133,252,173,24,252,133,253,173,25,252
  61. 1140 data 133,254,173,117,255,141,115,255,173,118,255,141,116
  62. 1150 data 255,32,74,255,56,173,107,255,237,32,252,141,107,255
  63. 1160 data 173,108,255,237,33,252,141,108,255,56,173,117,255,233
  64. 1170 data 10,141,117,255,173,118,255,233,0,141,118,255,206,114
  65. 1180 data 255,76,252,254,177,253,141,107,255,200,177,253,141
  66. 1190 data 108,255,76,9,253,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  67. 1200 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,173,255,3,201,4
  68. 1210 data 208,93,169,53,133,1,169,125,133,253,169,255,133,254
  69. 1220 data 169,6,133,251,133,249,173,136,2,133,252,169,216,133
  70. 1230 data 250,174,114,255,240,55,160,0,177,253,41,63,145,251
  71. 1240 data 173,134,2,145,249,200,192,6,208,240,160,10,32,67,255
  72. 1250 data 136,208,250,24,165,251,105,40,133,251,165,252,105,0
  73. 1260 data 133,252,24,165,249,105,40,133,249,165,250,105,0,133
  74. 1270 data 250,202,208,201,169,0,141,254,3,96,177,122,201,34,240
  75. 1280 data 6,169,8,141,254,3,96,32,115,0,177,122,201,32,144,241
  76. 1290 data 201,91,176,237,153,118,255,200,192,7,208,238,136,152
  77. 1300 data 24,101,122,133,122,165,123,105,0,133,123,160,1,177
  78. 1310 data 122,201,34,208,208,32,115,0,173,255,3,201,1,208,55
  79. 1320 data 173,114,255,208,6,169,4,141,254,3,96,32,29,255,152
  80. 1330 data 240,244,177,253,133,251,200,177,253,133,252,200,177
  81. 1340 data 253,141,115,255,200,177,253,141,116,255,165,43,133
  82. 1350 data 253,165,44,133,254,32,74,255,169,0,141,254,3,96,201
  83. 1360 data 2,240,3,76,34,252,56,165,45,141,115,255,229,43,141
  84. 1370 data 112,255,165,46,141,116,255,229,44,141,113,255,56,173
  85. 1380 data 109,255,237,112,255,141,111,255,173,110,255,237,113
  86. 1390 data 255,13,111,255,176,6,169,1,141,254,3,96,173,114,255
  87. 1400 data 240,23,201,12,144,3,76,92,254,32,29,255,192,6,208,6
  88. 1410 data 169,2,141,254,3,96,76,137,254,169,125,133,253,169,255
  89. 1420 data 133,254,76,147,254,173,117,255,133,253,173,118,255
  90. 1430 data 133,254,160,0,185,119,255,145,253,200,192,6,208,246
  91. 1440 data 32,67,255,136,208,250,173,107,255,145,253,32,67,255
  92. 1450 data 173,108,255,145,253,32,67,255,24,173,107,255,109,112
  93. 1460 data 255,145,253,200,173,108,255,109,113,255,145,253,32
  94. 1470 data 67,255,32,67,255,165,253,141,117,255,165,254,141,118
  95. 1480 data 255,165,43,133,251,165,44,133,252,173,107,255,133,253
  96. 1490 data 173,108,255,133,254,32,74,255,238,114,255,32,67,255
  97. 1500 data 165,253,141,107,255,165,254,141,108,255,56,169,0,237
  98. 1510 data 107,255,141,109,255,169,252,237,108,255,141,110,255
  99. 1520 data 16,8,169,0,141,109,255,141,110,255,169,0,141,254,3
  100. 1530 data 96,169,125,133,253,169,255,133,254,174,114,255,160
  101. 1540 data 0,177,253,217,119,255,208,6,200,192,6,208,244,96,160
  102. 1550 data 10,32,67,255,136,208,250,202,208,230,96,230,253,208
  103. 1560 data 2,230,254,96,160,0,177,251,145,253,230,251,208,2,230
  104. 1570 data 252,230,253,208,2,230,254,165,251,205,115,255,208,233
  105. 1580 data 165,252,205,116,255,208,226,96,1,160,255,91,0,0,0,0,0,0,0
  106. 1590 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1
  107. 1990 rem * lower ml data *
  108. 2000 data 173,8,3,141,252,3,173,9,3,141
  109. 2010 data 253,3,169,83,141,8,3,169,3,141
  110. 2020 data 9,3,96,160,1,177,122,201,95,240
  111. 2030 data 3,108,252,3,32,115,0,177,122
  112. 2040 data 201,147,240,15,201,148,240,14
  113. 2050 data 201,33,240,13,201,36,240,12,108
  114. 2060 data 252,3,169,1,44,169,2,44,169,3
  115. 2070 data 44,169,4,141,255,3,201,4,208
  116. 2080 data 11,169,147,32,210,255,162,13
  117. 2090 data 24,32,240,255,32,115,0,169,127
  118. 2100 data 141,13,220,165,1,141,73,253,169
  119. 2110 data 0,133,1,162,7,181,248,157,62
  120. 2120 data 253,202,208,248,32,80,253,173
  121. 2130 data 255,3,201,1,208,14,165,123,201
  122. 2140 data 2,208,8,165,253,133,45,165,254
  123. 2150 data 133,46,162,7,189,62,253,149,248
  124. 2160 data 202,208,248,173,73,253,133,1
  125. 2170 data 169,129,141,13,220,173,254,3
  126. 2180 data 240,4,170,76,55,164,173,255,3
  127. 2190 data 201,1,208,6,165,123,201,2,208
  128. 2200 data 3,108,252,3,32,161,225,76,174,167
  129.